Option Strict Off
Option Explicit On
Namespace BMLERP
	Friend Class frmINV145
		Inherits System.Windows.Forms.Form
		Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdExit.Click
			Me.Close()
		End Sub

		Private Sub frmINV145_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
			Adodc1.ConnectionString = ConnectString
			Adodc1.ConnectionTimeout = 10
			Adodc1.CommandType = ADODB.CommandTypeEnum.adCmdText
			Adodc1.RecordSource = "SELECT ICL.* " & "FROM ICL"
			Adodc1.Refresh()
			VB6_AddADODataBinding()
			Dim myDataCaptions As String() = {"Code", "Description"}
			Dim myDataFields As String() = {"CLCLC", "CLDSC"}
			setDataGridView(myDataCaptions, myDataFields, Me.grdItemClass)
		End Sub

		Private Sub grdWarehouse_Click()

		End Sub
	End Class
End Namespace